home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / printgrf / form1.frm < prev    next >
Text File  |  1995-05-07  |  1KB  |  56 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4065
  5.    ClientLeft      =   1290
  6.    ClientTop       =   1890
  7.    ClientWidth     =   4815
  8.    Height          =   4755
  9.    Left            =   1230
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4065
  12.    ScaleWidth      =   4815
  13.    Top             =   1260
  14.    Width           =   4935
  15.    Begin PictureBox Graph1 
  16.       Height          =   2175
  17.       Left            =   600
  18.       ScaleHeight     =   2145
  19.       ScaleWidth      =   3345
  20.       TabIndex        =   0
  21.       Top             =   840
  22.       Width           =   3375
  23.    End
  24.    Begin Menu Print_mnu 
  25.       Caption         =   "Print"
  26.       Begin Menu Print_Graph_mnu 
  27.          Caption         =   "Print Graph"
  28.       End
  29.       Begin Menu sep1_mnu 
  30.          Caption         =   "-"
  31.       End
  32.       Begin Menu Quit_mnu 
  33.          Caption         =   "Quit"
  34.       End
  35.    End
  36. End
  37.  
  38. Option Explicit
  39.  
  40. Sub Form_Resize ()
  41.     graph1.Move 0, 0, ScaleWidth, ScaleHeight
  42. End Sub
  43.  
  44. Sub Print_Graph_mnu_Click ()
  45.     Dim success
  46.     Const PIXEL = 3
  47.     Printer.ScaleMode = PIXEL
  48.     success = Printgraph(graph1, 0, 0, CInt(Printer.ScaleWidth), CInt(Printer.ScaleHeight))
  49.     Printer.EndDoc
  50. End Sub
  51.  
  52. Sub Quit_mnu_Click ()
  53.     End
  54. End Sub
  55.  
  56.